;+
; NAME: 
;       IRDC_PARAMS
;
; PURPOSE: 
;       Define a system variable, !IRDC that holds the galactic
;       8-um model parameters, and other global quantities needed.  
;
; CALLING SEQUENCE: 
;       IRDC_PARAMS
;
; INPUTS:
;       NONE
;
; KEYWORD PARAMETERS: 
;       NONE
;
; OUTPUTS:
;       NONE  (Sets system variable !IRDC)
;
; NOTES:
;
;       Galactic 8-um emission profile parameters stored in this
;       system variable:
;         A  -- f_veil
;         B  -- Contribution from neutral atomic gas
;         C  -- Contribution from stellar disk
;         Td -- Fitted dust temperature
;
; MODIFICATION HISTORY:
;
;       02/27/12, TPEB -- Created routine, following example of
;                         galactic_params.pro 
;       07/25/12, TPEB -- Pointing to NEW Case 2 -- parametric +
;                         Molecular Ring
;
;-

PRO IRDC_PARAMS, SUFF=suff, CASENO=caseno
  
  COMPILE_OPT OBSOLETE
  
  IF n_elements(suff) EQ 0 THEN suff=''
  IF n_elements(caseno) EQ 0 THEN caseno = 2
  ;; IF n_elements(caseno) EQ 0 THEN caseno = 99
  
  
  ;; Restore the cannonical result
  restore,'./irdc_dist_model/data/case'+string(caseno,format="(I0)")+$
          '_irdc_TdFIT'+suff+'.sav'
  
  defsysv, '!IRDC', {A:res[0], B:res[1], C:res[2], NG:res[3], Td:res[4], $
                     mt:res[5], GW:res[6]}
  
  RETURN
END
